inherit CometExpeEmeric_LM_FC Logical_model

#___________________________________________________________________________________________________________________________________________
method CometExpeEmeric_LM_FC constructor {name descr args} {
 this inherited $name $descr
# Adding some physical presentations 
 set PM_basic [CPool get_a_comet CometExpeEmeric_PM_FC_1]
   this Add_PM        $PM_basic
   this set_PM_active $PM_basic

 eval "$objName configure $args"
 return $objName
}

#___________________________________________________________________________________________________________________________________________
Methodes_set_LC CometExpeEmeric_LM_FC [P_L_methodes_set_CometExpeEmeric] {} {$this(L_actives_PM)}
Methodes_get_LC CometExpeEmeric_LM_FC [P_L_methodes_get_CometExpeEmeric] {$this(FC)}

#___________________________________________________________________________________________________________________________________________
proc P_L_methodes_set_CometExpeEmeric_COMET_RE_FC {} {return [list {set_tirage_courant {v}} {}]}
Generate_LM_setters CometExpeEmeric_LM_FC [P_L_methodes_set_CometExpeEmeric_COMET_RE_FC]

#___________________________________________________________________________________________________________________________________________


